home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / MIXED GRAPHICS AND TEXT.bas < prev    next >
BASIC Source File  |  2000-01-01  |  777b  |  12 lines
  1. 5  & 
  2. 10  REM MIXED GRAPHICS AND TEXT DEMO PROGRAM
  3. 15  REM SET UP CTRL B, D, P & T
  4. 20 B$ =  CHR$(2):D$ =  CHR$(4):P$ =  CHR$(16):T$ =  CHR$(20)
  5. 25  PRINT T$1B$P$: HGR2 : HCOLOR= 3: PRINT D$"BLOAD DEMO.PIC,A$4000": SPEED= 100
  6. 30  VTAB 21: PRINT "With Flex Type you can put text down here."
  7. 35  VTAB 1: PRINT "Or you can put it up here.": VTAB 14: HTAB 41: PRINT "You can even write "
  8. 40  FOR I = 1 TO 5: READ X,Y: HPLOT X,Y: NEXT I: DATA   235, 108, 235, 112, 232, 116, 226, 118, 219, 119 
  9. 45  FOR I = 1 TO 25:X = X -7: HPLOT X,Y: NEXT I
  10. 50  FOR I = 1 TO 8: READ X,Y: HPLOT X,Y: NEXT I: DATA   37, 118, 30, 116, 27, 109, 27, 102, 26, 103, 25, 104, 28, 103, 29, 104
  11. 55  VTAB 11: HTAB 7: PRINT " here."
  12. 60  VTAB 22: PRINT "As you may have noticed, you can also HPLOT.": SPEED= 255